#!/usr/bin/perl -w
use strict;
# this takes the name of the file from the user and modifies the systamtic names to include the easily identifiable names

print "Please type the filename ";

my $filename = <STDIN>;

# Remove the newline from the filename
chomp $filename;

# open the file, or exit
unless ( open(FILE, $filename) ) {

    print "Cannot open file \"$filename\"\n\n";
    exit;
}

# Read the  data from the file, and store it
# into the array variable @genedata
my @genedata = <FILE>;

foreach my $genename (@genedata)
{
    $genename =~ s/\s//g;

    $genename =~ s/HCAG_08008T0/Hcap_HCAG_08008T0/g; 
}
close FILE;

exit;
